home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / hotdir.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  508 b   |  30 lines
  1. G4C
  2.  
  3. winbig -1 -1 350 76 "Directory Hotlist"
  4. winsmall -1 -1 350 76
  5. wintype 11110001
  6. winout nil:
  7. varpath "climaster/*"
  8.  
  9. xonopen
  10. lvuse hotdir.g 1
  11. cm_goto = ""
  12. lvsort asc
  13.  
  14. xonclose
  15. delvar cm_goto
  16. lvuse climaster $cm_srce
  17.  
  18. xonrmb
  19. guiclose hotdir.g
  20.  
  21. xlistview 0 0 0 76 "" cm_goto "" 0 txt
  22. gadid 1
  23. gadhelp 'Select a path in here to go straight to the directory.'
  24. gadfont topaz.font 8 000
  25. lvuse climaster $cm_srce
  26. gosub climaster godir
  27. gosub climaster update
  28. guiclose hotdir.g
  29.  
  30. ; -----------------------------------